0 PRINT"[147]"TAB(5)"[208]ROGRAMM ZUR [201]NSTALLATION VON"
1 PRINTTAB(4)CHR$(34)"[199]EO[211]PEED[194]OOT"CHR$(34)"  AUF [199]EO[205]AKE[194]OOT"
2 PRINTTAB(13)"[194]OOTDISKETTEN."
3 PRINT"[194]ITTE [194]OOTDISK IN [204]AUFWERK 8 LEGEN UND"
4 PRINTTAB(12)"[211]PACE DRUECKEN !"
5 POKE198,0:WAIT203,60:PRINT"[208]ROGRAMM ARBEITET ..."
8 FORA=0TO19:READX:POKE820+A,X:NEXT
9 FORA=0TO81:READX:POKE52992+A,X:NEXT
10 X$="GEOSPEEDBOOT":GOSUB1000:IF E THEN END
20 T(1)=TS:S(1)=SS
30 X$="GEOS":GOSUB1000:IF E THEN END
40 T(2)=TS:S(2)=SS
50 X$="GEOBOOT":GOSUB1000:IF E THEN END
60 T(3)=TS:S(3)=SS
70 :
72 LW=0
80 FORA=0TO2:X$="M-W"+CHR$(LW)+CHR$(5)+CHR$(32)
90 FORX=0TO31:READY:X$=X$+CHR$(Y):NEXT
100 OPEN1,8,15:PRINT#1,X$:CLOSE1:LW=LW+32:NEXT
110 X$="M-W"+CHR$(LW)+CHR$(5)+CHR$(18):FORX=0TO11:READY:X$=X$+CHR$(Y):NEXT
120 X$=X$+CHR$(T(2))+CHR$(S(2))+CHR$(T(1))+CHR$(S(1))+CHR$(T(3))+CHR$(S(3))
130 OPEN1,8,15:PRINT#1,X$:PRINT#1,"U3":CLOSE1
140 PRINT"[199]EO[211]PEED[194]OOT INSTALLIERT!":END
999 STOP
1000 REM * BLOCK EINLESEN *
1010 DATA 162,2,32,198,255,160,0,32,207,255,153,0,192,200,208,247,32,204,255,96
1011 REM * DATEI SUCHEN *
1012 DATA166,2,169,160,157,240,207,232,224,16,208,248,162,2,160,192,134,250
1013 DATA132,251,160,0,177,250,41,191,230,250,230,250,230,250,201,130,208,14
1014 DATA160,255,200,192,16,240,19,185,240,207,209,250,240,244,g(null)(null)RND@(null)(null)(null)(null)LOG<(null)(null)(null)(null)SQRSIN(null)<#WAITLEN32CHR$(null)
j(null)(null)(null)(null)(null)(null)(null)LISTGOSUB(null)OPEN(null)(null)LIST(null)>9cIF(null)(null)(null)IF(null)(null)cIF(null)(null)(null)IF(null)(null)(null)IF(null);(null)
(null);(null)(null)(null);(null)(null)(null);(null)(null)(null);(null)(null)(null)b(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)DIMSTR$DIMPILET(null)DIM(null)(null)@STR$(null)X(null)@(null)FORPRINT#REMLEFT$IF(null)FN(null)(null)(null)FN(null)(null)iLET(null)STEPPRINT#(null)(null)POSPRINT#(null)LETGOTO(null)(null)(null)(null)(null)(null)(null)(null)y(null)LET(null)PRINT#(null)(null)(null)x(null)OPEN(null)GOSUB(null)
$SYS820:CLOSE2:CLOSE1
1070 FORA=1TOLEN(X$):POKE53231+A,ASC(MID$(X$,A,1)):NEXT:POKE2,LEN(X$)
1080 SYS52992:IF PEEK(780)=1 THEN 1120
1090 IF PEEK(780)=0 THEN T=PEEK(49152):S=PEEK(49153)
1100 IFT=0THENPRINT"[196]ATEI "CHR$(34)X$CHR$(34)" NICHT AUF [196]ISKETTE!":E=1:RETURN
1110 GOTO 1040
1120 TS=PEEK(53230):SS=PEEK(53231):RETURN
1990 REM * FLOPPYPROGRAMM *
2000 DATA32,5,208,174,108,5,172,109,5,134,8,132,9,169,128,133,1,197,1,240,252
2001 DATA162,11,189,96,5,157,80,4,202,16,247,169,12,141,46,4,169,0,162,203,141
2002 DATA78,4,142,79,4,169,144,133,1,197,1,240,252,174,110,5,172,111,5,134,8
2003 DATA132,9,169,128,133,1,197,1,240,252,174,112,5,172,113,5,142,68,4,140
2004 DATA70,4,169,144,133,1,197,1,240,252,76,5,208,71,69,79,83,80,69,69,68,66
2005 DATA79,79,84